inherited AjourMain: TAjourMain
  Left = 148
  Top = 3
  VertScrollBar.Range = 0
  BorderIcons = [biSystemMenu, biMinimize, biHelp]
  BorderStyle = bsSingle
  Caption = 'Ajour'
  ClientHeight = 418
  ClientWidth = 344
  Ctl3D = False
  Color = clNavy
  Menu = MainMenu1
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited BundPanel: TPanel [0]
    Top = 380
    Width = 344
    Height = 37
    Align = alNone
    BevelOuter = bvRaised
    BorderStyle = bsSingle
    Color = clRed
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    object Label3: TLabel [0]
      Left = 24
      Top = 5
      Width = 238
      Height = 26
      AutoSize = False
      Caption = 'Og n�r du er helt f�rdig'
      Font.Color = clWhite
      Font.Height = -19
      Font.Name = 'Comic Sans MS'
      Font.Style = []
      ParentFont = False
    end
    inherited ExitKnap: TButton
      Left = 264
      Top = 6
      Width = 63
      Hint = 'Lukker Ajour ned'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Comic Sans MS'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
  end
  inherited TopPanel: TPanel [1]
    Top = 1
    Width = 344
    Align = alNone
    BorderStyle = bsSingle
    Color = clRed
    Ctl3D = False
    ParentCtl3D = False
    inherited Label1: TLabel
      Left = 9
      Top = -2
      Width = 130
      Height = 38
      Align = alNone
      AutoSize = False
      Caption = 'Ajour'
      Color = clRed
      Font.Color = clWhite
      Font.Style = [fsBold]
      ParentColor = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 168
      Top = 14
      Width = 168
      Height = 21
      Alignment = taRightJustify
      AutoSize = False
      Caption = '�1997 Henning Schulz'
      Font.Color = clWhite
      Font.Height = -13
      Font.Name = 'Comic Sans MS'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
  end
  object Emne: TPageControl
    Left = 0
    Top = 43
    Width = 344
    Height = 338
    ActivePage = Aftaler
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Comic Sans MS'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    TabWidth = 113
    object Aftaler: TTabSheet
      Caption = 'Aftalekalender'
      object Panel1: TPanel
        Left = 1
        Top = -1
        Width = 337
        Height = 306
        BorderStyle = bsSingle
        Color = clRed
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 5
        object Label4: TLabel
          Left = 16
          Top = 2
          Width = 125
          Height = 26
          AutoSize = False
          Caption = 'V�lg datoen'
          Font.Color = clWhite
          Font.Height = -19
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 61
          Top = 38
          Width = 15
          Height = 16
          Alignment = taRightJustify
          Caption = '�r'
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = 'Comic Sans MS'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 50
          Top = 63
          Width = 38
          Height = 16
          Alignment = taRightJustify
          Caption = 'M�ned'
          Font.Color = clWhite
          Font.Height = -12
          Font.Name = 'Comic Sans MS'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label7: TLabel
          Left = 16
          Top = 149
          Width = 308
          Height = 26
          AutoSize = False
          Caption = 'Rediger datoens aftaler m.v.'
          Font.Color = clWhite
          Font.Height = -19
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentFont = False
        end
        object Hellig: TLabel
          Left = 4
          Top = 86
          Width = 117
          Height = 64
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'P�skedag'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentFont = False
        end
        object LblPrev: TLabel
          Left = 136
          Top = 16
          Width = 68
          Height = 15
          Alignment = taRightJustify
          AutoSize = False
          Caption = 'Foreg�ende'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentFont = False
        end
        object LblNext: TLabel
          Left = 236
          Top = 16
          Width = 40
          Height = 15
          AutoSize = False
          Caption = 'N�ste'
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentFont = False
        end
        object LblAftDag: TLabel
          Left = 161
          Top = 2
          Width = 113
          Height = 15
          Alignment = taCenter
          AutoSize = False
          Caption = 'Aftaledag'
          Color = clRed
          Font.Color = clWhite
          Font.Height = -11
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object IPTxt: TMemo
          Left = 6
          Top = 175
          Width = 322
          Height = 121
          Hint = 'Rediger aftaler'
          HelpContext = 4
          Ctl3D = True
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentCtl3D = False
          ParentFont = False
          ParentShowHint = False
          ScrollBars = ssVertical
          ShowHint = True
          TabOrder = 1
          OnExit = IPTxtExit
        end
        object IdagKnap: TButton
          Left = 281
          Top = 6
          Width = 45
          Height = 25
          Hint = 'S�tter kalenderen til idag'
          Caption = 'I dag'
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Comic Sans MS'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          TabStop = False
          OnClick = IdagKnapClick
        end
        object AftBladr: TUpDown
          Left = 205
          Top = 17
          Width = 29
          Height = 15
          Hint = 'Bladrer i aftalerne'
          Min = -32767
          Max = 32767
          Orientation = udHorizontal
          ParentShowHint = False
          Position = 0
          ShowHint = True
          TabOrder = 2
          Wrap = False
          OnClick = AftBladrClick
        end
        object Dial1Knap: TButton
          Left = 272
          Top = 153
          Width = 56
          Height = 21
          Caption = 'Ring op'
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Comic Sans MS'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnClick = DialKnapClick
        end
      end
      object IPKal: TCalendar
        Left = 130
        Top = 33
        Width = 199
        Height = 115
        Hint = 'V�lg dag'
        HelpContext = 3
        Ctl3D = True
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        StartOfWeek = 1
        TabOrder = 4
        OnChange = IPKalChange
      end
      object IPAar: TUpDown
        Left = 112
        Top = 38
        Width = 15
        Height = 19
        Hint = 'V�lg �r'
        HelpContext = 1
        Associate = VisAar
        Min = 1901
        Max = 2079
        ParentShowHint = False
        Position = 1901
        ShowHint = True
        TabOrder = 1
        Thousands = False
        Wrap = False
        OnClick = IPAarClick
      end
      object IPMnd: TUpDown
        Left = 112
        Top = 63
        Width = 15
        Height = 19
        Hint = 'V�lg m�ned'
        HelpContext = 1
        Associate = VisMnd
        Min = 1
        Max = 12
        ParentShowHint = False
        Position = 1
        ShowHint = True
        TabOrder = 3
        Thousands = False
        Wrap = False
        OnClick = IPMndClick
      end
      object VisAar: TEdit
        Left = 81
        Top = 38
        Width = 31
        Height = 19
        Hint = 'V�lg �r'
        HelpContext = 1
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 0
        Text = '1901'
      end
      object VisMnd: TEdit
        Left = 93
        Top = 63
        Width = 19
        Height = 19
        Hint = 'V�lg m�ned'
        HelpContext = 2
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 2
        Text = '1'
      end
    end
    object Mrkdage: TTabSheet
      Caption = 'M�rkedage'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Panel4: TPanel
        Left = 1
        Top = 0
        Width = 337
        Height = 305
        BorderStyle = bsSingle
        Caption = 'Panel3'
        Color = clRed
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object Label10: TLabel
          Left = 16
          Top = 1
          Width = 297
          Height = 26
          AutoSize = False
          Caption = 'Rediger m�rkedage'
          Font.Color = clWhite
          Font.Height = -19
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentFont = False
        end
        object IPMrk: TStringGrid
          Left = 6
          Top = 30
          Width = 322
          Height = 265
          Hint = 'Rediger m�rkedage'
          HelpContext = 5
          ColCount = 3
          Ctl3D = True
          DefaultColWidth = 100
          DefaultRowHeight = 15
          FixedCols = 0
          RowCount = 300
          Options = [goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goAlwaysShowEditor, goThumbTracking]
          ParentCtl3D = False
          ScrollBars = ssVertical
          TabOrder = 0
          OnExit = IPMrkExit
          OnGetEditMask = IPMrkGetEditMask
          OnSetEditText = IPMrkSetEditText
          ColWidths = (
            29
            29
            240)
        end
      end
    end
    object Opgaver: TTabSheet
      Caption = 'Opgaver'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object Panel3: TPanel
        Left = 1
        Top = 0
        Width = 337
        Height = 305
        BorderStyle = bsSingle
        Caption = 'Panel3'
        Color = clRed
        TabOrder = 0
        object Label9: TLabel
          Left = 16
          Top = 1
          Width = 254
          Height = 26
          AutoSize = False
          Caption = 'Rediger opgaver'
          Font.Color = clWhite
          Font.Height = -19
          Font.Name = 'Comic Sans MS'
          Font.Style = []
          ParentFont = False
        end
        object IPNot: TMemo
          Left = 6
          Top = 30
          Width = 322
          Height = 265
          Hint = 'Rediger opgaver'
          HelpContext = 6
          Ctl3D = True
          ParentCtl3D = False
          ParentShowHint = False
          ScrollBars = ssVertical
          ShowHint = True
          TabOrder = 0
          OnExit = IPNotExit
        end
        object Dial2Knap: TButton
          Left = 272
          Top = 4
          Width = 56
          Height = 23
          Caption = 'Ring op'
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'Comic Sans MS'
          Font.Style = [fsBold]
          ParentFont = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnClick = DialKnapClick
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    object File1: TMenuItem
      Caption = '&Filer'
      ShortCut = 0
      object Print1: TMenuItem
        Caption = '&Udskriv...'
        ShortCut = 0
        OnClick = Print1Click
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Exit1: TMenuItem
        Caption = 'A&fslut'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Lingua1: TMenuItem
      Caption = 'Lingu&a'
      ShortCut = 0
      object Dansk1: TMenuItem
        Caption = '&Dansk'
        ShortCut = 0
        OnClick = Dansk1Click
      end
      object English1: TMenuItem
        Caption = '&English'
        ShortCut = 0
        OnClick = English1Click
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object SOW_S: TMenuItem
        Caption = 'Start ugen s�ndag'
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = SOW_SClick
      end
      object SOW_M: TMenuItem
        Caption = 'Start ugen mandag'
        Checked = True
        GroupIndex = 1
        RadioItem = True
        ShortCut = 0
        OnClick = SOW_MClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Hj�lp'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = '&Indhold'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object About1: TMenuItem
        Caption = '&Om...'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 30
    Top = 1
  end
  object Timer1: TTimer
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 60
    Top = 1
  end
end